Menⁿye ╟ok Kullan²lan Dosyalar² Eklemek
▌■te Visual Basic programlar²n²za profesyonellik katacak bir pⁿf noktas² daha. Word, Excel gibi popⁿler programlar Dosya menⁿlerinde ôEn son kullan²lanö dosyalar iτin bir
alan tutarlar. B÷ylece kullan²c² bu dosyay² bir daha aτmak istedi≡inde dosyan²n yerini genel diyalog kutusunda aramak zorunda kalmaz, menⁿden bu dosyay² seτerek aτ²lmas²n² sa≡layabilir. Siz de buna benzer bir ■ey yapabilirsiniz. ╓ncelikle yanda g÷rⁿlen 1. Formu ve ⁿzerindeki menⁿyⁿ yaratmakla ba■lay²n.
Private Sub eklenen_dosya_Click()
Label1.Caption = eklenen_dosya.Caption
End Sub
Private Sub Form_Load()
Label1.Caption = "" æSon aτ²lan dosyay² temsil eden etiketi temizle
eklenen_dosya.Visible = False æMenⁿ seτene≡ini gizle
æ(Program yeni ba■lad² ve hiτ dosya aτ²lmad²)
CommonDialog1.filename = "*.*"
End Sub
Private Sub Ac_Click() æDosya * Aτ komutu τal²■t²r²ld²≡²nda
CommonDialog1.DefaultExt = "*.*" æTⁿm dosyalar
CommonDialog1.Action = 1 æDosya Aτ
eklenen_dosya.Caption = CommonDialog1.filename æGenel diyalog kutusunda seτilen dosyay²
æSon menⁿ seτene≡ine ekle
eklenen_dosya.Visible = True æSon menⁿ seτene≡ini g÷rⁿnⁿr hale getir.
Label1.Caption = CommonDialog1.filename
End Sub
Yukar²daki kodlar² da yazd²ktan sonra program²n²z² τal²■t²r²n ve Dosya menⁿsⁿnden Aτ komutunu seτin. Herhangi bir dosya seτtikten sonra bunun, Dosya menⁿsⁿnⁿn en alt sat²r²nda eski ismi ôeklenen_dosyaö olan yere yerle■ti≡ini g÷receksiniz. ▌■te bu kadar basit...